define getadder
proc( n )
  return proc( x ) return 2 + x end
end;

n := getadder(2);
p := n(5);
pexpected := 7